home *** CD-ROM | disk | FTP | other *** search
/ B Soft 3 / B-Soft_3_19xx_Maik__Mike_de_Side_A.d64 / ...nie gedacht! (.txt) next >
Commodore BASIC  |  2023-02-26  |  15KB  |  357 lines
  1. 0 poke788,52:poke792,193:print"[147][156]":poke53280,1:poke53281,1
  2. 1 print"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  3. 3 print"[221][196]as haett' ich nie gedacht![221]"
  4. 4 print"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
  5. 5 print"[218]ielke-[208]roductions presents"
  6. 6 print"ein [202]ust 4 [198]un-[208]rogramm"
  7. 7 print"[196]irected by [215]izard of [202]ust 4 [198]un
  8. 8 [153]"valxecutive (NULL)roducer: (NULL)izard of mid$ust 4 ascun";
  9. 9 [153]"(NULL)ound-valffects by (NULL)izard of mid$ust 4 ascun
  10. 10 print"[214]isual [197]ffects by [215]izard of [202]ust 4 [198]un
  11. 11 [153]"(NULL)pecial valffects by (NULL)izard of mid$ust 4 ascun
  12. 12 print"[193]dditional [201]deas by [196]olman of [202]ust 4 [198]un";
  13. 13 print"[201]m [214]ertrieb der [194]-[211]oft [196]eutschland[145][145]"
  14. 99 poke198,.:wait198,1:poke198,.
  15. 100 rem
  16. 110 print"[147][196]u stehst in deiner [215]ohnung. [214]or dir"
  17. 120 print"liegt eine lange anstrengende [210]eise.    [196]u kannst jetzt"
  18. 130 print"(1) [196]ein [199]eld und deine 2 [195]omputer"
  19. 135 print"    schnappen und dich sofort auf den"
  20. 140 print"    [215]eg machen oder"
  21. 150 print"(2) [206]och in die [203]ueche gehen und dir in"
  22. 155 print"    der [205]ikrowelle etwas warmes zu essen    machen."
  23. 160 gosub60000
  24. 161 ifa>2then160
  25. 162 ifa=2then59990
  26. 165 print"[147][196]u machst das [204]icht aus und gehst auf"
  27. 166 print"die [211]trasse raus. [196]eine zwei [195]64er und"
  28. 167 print"die sieben [196]isketten mit dem [206]uclear"
  29. 168 print"[208]ower [208]lant [208]rogramm hast [196]u bei [196]ir."
  30. 169 print"[196]u kannst jetzt entweder"
  31. 170 print"(1) [218]u deinem ehemaligen [211]chulfreund in"
  32. 171 print"    den [204]aden gehen, um dort die fehlen-    den 64er zu kaufen oder"
  33. 172 print"(2) [193]uf gut [199]lueck in deinen [208]orsche"
  34. 173 print"    springen und sofort zum nexten [203][203][215]"
  35. 174 print"    fahren oder"
  36. 175 print"(3) [206]och kurz nachdenken.":gosub60000:ifa>3then176
  37. 176 ifa=3then59980
  38. 177 ifa=2then200
  39. 178 print"[196]ein [198]reund kann [196]ir 4 [195]64er zum [208]reis":ifa=1then59970
  40. 179 print"von 700 000 [197]uro anbieten. [196]ir fehlt"
  41. 180 print"dann noch ein 64er um alle [203][203][215]s unter"
  42. 182 print"[203]ontrolle zu bringen."
  43. 183 print"(1) [196]u kaufst die vier 64er"
  44. 184 print"(2) [196]u bedankst dich und gehst, ohne"
  45. 185 print"    einen [195]64 zu kaufen.":gosub60000:ifa>2thenprint"[145][145]":goto185
  46. 186 ifa=1then59960
  47. 187 goto205
  48. 200 print"[147][196]u faehrst zunaechst die zwei [203][203][215]s in"
  49. 201 print"deiner unmittelbaren [213]mgebung an und"
  50. 202 print"kannst sie durch deine beiden 64er un-"
  51. 203 print"ter [203]ontrolle bringen."
  52. 204 print"[196]eine naechste [211]tation ist der [195]omputer-laden deines [198]reundes...":goto178
  53. 205 print"[147][196]u willlst gerade den [204]aden verlassen,"
  54. 206 print"als du deinen [198]reund sagen hoerst:"
  55. 207 printchr$(34)"[202]aja, so warst du schon immer! [193]lso"
  56. 208 print" gut, du bekommst noch einen [195]128 ko-"
  57. 209 print" stenlos dazu und einen [199]utschein fuer"
  58. 210 print" eine [212]ankfuellung..."chr$(34)
  59. 211 print"(1) [196]u willigst hocherfreut ein"
  60. 212 print"(2) [196]u verlaesst den [204]aden"
  61. 213 print"(3) [196]u plauderst noch etwas mit ihm"
  62. 214 print"    ueber alte [218]eiten und kaufst das"
  63. 215 print"    ganze [218]eug...":gosub60000:ifa>3thenprint"[145][145]":goto215
  64. 216 print"[147]";:ifa=2then59950
  65. 217 rg=.:ifa=3thenrg=50000:gosub59940
  66. 218 print"[205]it deinen [195]omputern springst [196]u in"
  67. 219 print"deinen [208]orsche und saust los. [193]uf einem"
  68. 220 print"[211]child siehst [196]u >> [212]ankstelle 1 km<<."
  69. 221 print"[215]enn du eine [214]ollbremsung hinlegst"
  70. 222 print"kommst du bei der [212]ankstelle zum stehen.";
  71. 223 print"[214]ielleicht reicht das [194]enzin aber auch"
  72. 224 print"noch bis zum naechsten [203][203][215]. [215]as tun?"
  73. 225 print"(1) [214]oll in die [197]isen steigen"
  74. 226 print"(2) [199]as geben, nur fliegen ist schoener!"
  75. 227 gosub60000:ifa>2then227
  76. 228 ifa=1then59930
  77. 229 print"[147][196]u erreichst das naechste [203][203][215] in der"
  78. 230 print"letzten [211]ekunde. [193]us [196]ankbarkeit schen-"
  79. 231 print"ken dir die [193]rbeiter 20 000 [197]uro.":rg=rg+20000
  80. 232 print"(1) [201]ch sause zum naechsten [203][203][215]"
  81. 233 print"(2) [201]ch mache zuerst etwas anderes"
  82. 234 print"(3) [201]ch gebe den [193]rbeitern einen aus."
  83. 235 gosub60000:ifa>3then235
  84. 236 ifa=1then59920
  85. 237 print"[147]";:ifa=2then240
  86. 238 print"[196]ie [193]rbeiter bedanken sich bei dir und"
  87. 239 print"beschreiben dir den [215]eg zur naechsten   [212]ankstelle."
  88. 240 print"[196]u faehrst die naechste [212]ankstelle an,":rg=rg-20000
  89. 241 print"laesst den [212]ank vollaufen und legst so-"
  90. 242 print"lange 20 000 [197]uro auf den [212]resen."
  91. 243 print"[196]er [210]eihe nach faehrst [196]u die naechsten"
  92. 244 print"3 [203][203][215]s an und bekommst sie unter [203]on-"
  93. 245 print"trolle."
  94. 246 print"[193]uf der [198]ahrt nach [194]erlin siehst du eine";
  95. 247 print"unheimlich tolle [198]rau am [211]trassenrand,"
  96. 248 print"die nach [194]erlin trampen will."
  97. 249 print"(1) [200]aelst [196]u an oder
  98. 250 [153]"(2) (NULL)aesst str$u sie stehen?"
  99. 251 [141]60000:[139]a[177]2[167]251
  100. 252 [139]a[178]1[167]59910
  101. 253 [153]"load(NULL)chade, war aber wohl besser so, denn es";
  102. 254 [153]"koennte auf jede (NULL)inute ankommen."
  103. 255 [153]"str$u kommst in peekerlin an und gehst sofort"
  104. 256 [153]"in das letzte (NULL)(NULL)(NULL), um deinen letzten"
  105. 257 [153]"lenomputer - den len128 - anzuschliessen."
  106. 258 [153]"(NULL)as musst du beim einschalten machen,"
  107. 259 [153]"damit sich der 128er im 64er-(NULL)odus be-  findet?"
  108. 260 [153]"(1) str$ie "[199](34)"_"[199](34)"-(NULL)aste druecken"
  109. 261 [153]"(2) str$ie (NULL)un(NULL)top-(NULL)aste druecken
  110. 262 print"(3) [196]ie [195]ommodore "chr$(34)"[195]="chr$(34)"-[212]aste druecken"
  111. 263 gosub60000:ifa>3then263
  112. 264 ifa=1ora=2then59900
  113. 265 print"[147][208]rima, du bekommst das [208]rogramm ge-"
  114. 266 print"startet und die [215]erte des [203][203][215]s normali-"
  115. 267 print"sieren sich."
  116. 268 print"[193]ber weshalb ist es trotzdem so heiss?"
  117. 269 print"[196]u erinnerst dich an die [214]orgeschichte"
  118. 270 print"und dir faellt ein, dass auch der [195]ompi"
  119. 271 print"zur [193]ufrechterhaltung des [211]onneschildes"
  120. 272 print"befallen ist.":print"[215]as machst [196]u jetzt?"
  121. 273 print"(1) [196]u schaltest den 128er wieder ab,"
  122. 274 print"    nimmst ihn zur [211]onnenschutzschild-"
  123. 275 print"    zentrale mit und hoffst, dass der"
  124. 276 print"    [210]eaktor bis [205]itternacht noch inner-"
  125. 277 print"    halb der [199]renzen bleibt."
  126. 278 print"(2) [196]u machst einen [211]paziergang durch"
  127. 279 print"    [194]erlin."
  128. 280 print"(3) [196]u denkst nach (das soll ja manchmal";
  129. 281 print"    auch etwas nuetzen!)
  130. 282 [141]60000:[139]a[177]3[167]282
  131. 283 [139]a[178]1[167]59890
  132. 284 [139]a[178]3[167]59880
  133. 285 [153]"loadstr$u kommst an einer oeffentlichen peeke-"
  134. 286 [153]"duerfnisanstalt vorbei. left$ast du eine"
  135. 287 [153]"right$dee, was du tun koenntest?"
  136. 288 [153]"(1) mid$aja, ich gehe hinein"
  137. 289 [153]"(2) (NULL)ein, ich gehe weiter"
  138. 290 [141]60000:[139]a[177]2[167]290
  139. 291 [153]"load";:[139]a[178]1[167][141]59870
  140. 292 [153]"str$u kommst am technischen (NULL)useum vorbei."
  141. 293 [153]"left$ast str$u eine right$dee, was du tun koenntest?"
  142. 294 [153]"(1) mid$a, ich gehe 'mal rein"
  143. 295 [153]"(2) str$afuer habe ich jetzt keine (NULL)eit"
  144. 296 [141]60000:[139]a[177]2[167]296
  145. 297 [139]a[178]2[167]59860
  146. 298 [153]"loadstr$u rennst begeistert in das technische"
  147. 299 [153]"(NULL)useum. str$ort siehst du einen len64, der"
  148. 300 [153]"ueber eine (NULL)(NULL)-232 - (NULL)chnittstelle"
  149. 301 [153]"in atnbhaengigkeit von der (NULL)mgebungs-"
  150. 302 [153]"helligkeit eine (NULL)asershow auf dem str$ach"
  151. 303 [153]"des (NULL)useums ansteuert."
  152. 304 [153]"(1) (NULL)rima, den kann ich gebrauchen"
  153. 305 [153]"(2) (NULL)as soll ich den unnoetigen peekallast"
  154. 306 [153]"    mit mir rumschleppen?"
  155. 307 [141]60000:[139]a[177]2[167]307
  156. 308 [139]a[178]2[167]59850
  157. 309 [153]"loadvaline grossartige valntscheidung! str$u nimmst";
  158. 310 [153]"den len64 - zusammen mit der (NULL)teuersoft-"
  159. 311 [153]"ware und dem (NULL)ichtsensor - mit und gehst";
  160. 312 [153]"auf dem schnellsten (NULL)eg zur (NULL)onnen-"
  161. 313 [153]"schutzschildzentrale."
  162. 314 [153]"str$u schliesst den lenomputer an, startest"
  163. 315 [153]"das (NULL)rogramm, haengst den (NULL)ensor aus"
  164. 316 [153]"dem ascenster und nach einigen (NULL)arameter-"
  165. 317 [153]"eingaben gelingt es dir, den (NULL)ichtein-"
  166. 318 [153]"fall auf ein vertretbares (NULL)ass zu redu-"
  167. 319 [153]"zieren. str$ie optimale valinstellung kann"
  168. 320 [153]"ja morgen wieder durch den 200er (NULL)entium";
  169. 321 [153]"erledigt werden."
  170. 322 [153]"str$u hast die (NULL)enschheit gerettet. str$u bist";
  171. 323 [153]"der left$eld des (NULL)ages. ";:[139]rg[178].[167]326
  172. 324 [153]"(NULL)it deinen 50 000":[153]"valuro kannst du dir noch einen schoenen"
  173. 325 [153]"(NULL)ag machen.";
  174. 326 [153]:[153]"(NULL)aechste (NULL)oche bekommst du sicher noch"
  175. 327 [153]"eine grosszuegige chr$ratifikation durch"
  176. 328 [153]"die (NULL)(NULL)(NULL) ((NULL)nited (NULL)niverse (NULL)rganisation)."
  177. 329 [153]"(1) (NULL)illst str$u heute noch etwas tun, oder";
  178. 330 [153]"(2) (NULL)aesst du dich feiern."
  179. 331 [141]60000:[139]a[177]2[167]331
  180. 332 [139]a[178]2[167]380
  181. 333 [153]"loadleft$ab' ich mir's doch gedacht. (NULL).k. wir"
  182. 334 [153]"fahren nochmal zurueck und suchen nach"
  183. 335 [153]"der (NULL)ramperin..."
  184. 336 [153]"(NULL)atsaechlich, da steht sie ja. str$u laesst";
  185. 337 [153]"sie einsteigen und flirtest ein bisschen";
  186. 338 [153]"mit ihr. (NULL)chliesslich fahrt ihr in ein"
  187. 339 [153]"nettes left$otel und ihr habt viel (NULL)pass."
  188. 340 [153]"(NULL)nd auf gar keinen ascall aufhoeren,":[137]381
  189. 380 [153]"load(NULL)echt hast du. (NULL)ass dich feiern,"
  190. 381 [153]"solange du noch kannst! str$enn wer weiss,"
  191. 382 [153]"wann du das naechste mal einen (NULL)irenen-"
  192. 383 [153]"alarm hoerst. str$enn die (NULL)oral von der"
  193. 384 [153]"chr$eschicht: (NULL)ich're (NULL)ernkraftwerke gibt"
  194. 385 [153]"es nicht!":[153]"> (NULL)aste <":mm[178]1:[151]198,.:[146]198,1:[141]61000
  195. 386 [153]"loadstr$er peekundesminister fuer ascorschung und"
  196. 387 [153]"(NULL)echnologie warnt:
  197. 388 print"-[196][201][197][211][197][210] [195][207][205][208][213][212][197][210] [203][210][213][197][205][205][212] [218][197][201][212] [213][206][196] [210][193][213][205]-
  198. 389 [153]"(NULL)(NULL)(NULL)(NULL)right$lenleft$(NULL):closestr$ieser lenomputer zieht jeden
  199. 390 print" anderen materiellen [199]egenstand des ge-
  200. 391 [153]" samten bekannten (NULL)eltraums - unter valin-";
  201. 392 [153]" schluss der lenomputer anderer left$erstel-"
  202. 393 [153]" ler - mit einer (NULL)raft proportional dem
  203. 394 print" [205]assenprodukt beider [199]egenstaende und
  204. 395 [153]" umgekehrt proportional ihrer wechsel-
  205. 396 print" seitigen [197]ntfernung an.
  206. 397 [153]"str$right$atnval(NULL)val(NULL)right$(NULL)lenleft$val(NULL) left$right$(NULL)(NULL)valright$(NULL): str$ieser len64 ent-
  207. 398 print" haelt das [197]nergieaequivalent von 3 [205]il-";
  208. 399 print" lionen [212]onnen [212]rinitroluol ([212][206][212]) je
  209. 400 [153]" chr$ramm in der (NULL)ettomasse.
  210. 401 print"[193][204][204][199][197][205][197][201][206][197] [197][204][197][203][212][210][207][206][197][206][215][193][210][206][213][206][199]: [201]n diesem
  211. 402 [153]" len64 bewegen sich kleinste elektrisch
  212. 403 print" geladene [212]eilchen mit [199]eschwindigkeiten";
  213. 404 print" von ueber einer [205]illiarde km/h.
  214. 405 [153]"> (NULL)aste <ononon":[151]198,.:[146]198,1:[151]198,.
  215. 406 [153]"load(NULL)val(NULL)peek(NULL)atn(NULL)lenleft$val(NULL)(NULL)atn(NULL)(NULL)(NULL)(NULL)chr$: atnuf chr$rund der left$ei-
  216. 407 print" senbergschen [213]nschaerferelation ist es
  217. 408 [153]" fuer den peekenutzer dieses len64 unmoeglich";
  218. 409 [153]" zur gleichen (NULL)eit genau zu erkennen, wo";
  219. 410 [153]" sich dieser len64 und die (NULL)rogramme grade";
  220. 411 [153]" befinden und wie schnell sie sich bei
  221. 412 print" konstanter [205]asse und [208]rogrammlaenge be-";
  222. 413 print" wegen. [215]ir bitten um [214]erstaendnis.
  223. 414 [153]"(NULL)(NULL)(NULL)(NULL)right$lenleft$(NULL) asc(NULL)(NULL)lenleft$(NULL)chr$valascatnleft$(NULL): vals besteht die
  224. 415 print" aeusserst geringe, aber dennoch end-
  225. 416 [153]" liche (NULL)ahrscheinlichkeit, dass dieser
  226. 417 print" [195]64 spontan aus seiner gegenwaertigen
  227. 418 [153]" (NULL)age verschwindet und an einem physika-";
  228. 419 [153]" lisch zufaelligen (NULL)rt des (NULL)niversums
  229. 420 print" ([215]eltall) wieder auftaucht, unter [197]in-
  230. 421 [153]" schluss der (NULL)ohnung ihres (NULL)achbarn.
  231. 422 print" [200]ersteller, [208]rogrammierer und [196]istribu-";
  232. 423 print" toren lehnen [198]olgeschadenhaftungen ab.
  233. 424 [153]"(w) 29.05.96 bis 03.06.96 by (NULL)izard/mid$ascasc"
  234. 500 [162]
  235. 49998 [143][204]
  236. 49999 [151]198,.:[146]198,1:[151]53281,15:[128]
  237. 59850 [153]"loadpeekist du noch zu retten? (NULL)einst du ich"
  238. 59851 [153]"schreibe den ganzen (NULL)ist, nur damit du"
  239. 59852 [153]"dann machen kannst was du willst."
  240. 59853 [153]"str$urch diese atnntwort hast du ganz ein-"
  241. 59854 [153]"deutig gezeigt, dass du nicht faehig"
  242. 59855 [153]"bist, einen len64 zu fuehren. chr$ebe sofort"
  243. 59856 [153]"deinen ascuehrerschein ab, gehe nicht"
  244. 59857 [153]"ueber (NULL)os und schicke 4000,- str$(NULL) an den":[153]"(NULL)rogrammierer dieses";
  245. 59858 [153]" (NULL)piels.":[153]"left$ier die atndresse:":[153]"(NULL)horsten (NULL)ielke"
  246. 59859 [153]"(NULL)embergstrasse 14":[153]"78667 (NULL)illingendorf":[137]59999
  247. 59860 [153]"loadstr$u laeufst noch einige (NULL)eit durch die"
  248. 59861 [153]"(NULL)tadt, hast aber keine guten valinfaelle"
  249. 59862 [153]"mehr. right$rgendwann brichst du erschoepft"
  250. 59863 [153]"zusammen und wirst gedoerrt...":[137]59999
  251. 59870 [153]"str$u kommst einem dringenden menschlichen"
  252. 59871 [153]"peekeduerfnis nach. (NULL)ach wenigen (NULL)inuten"
  253. 59872 [153]"setzt du deinen (NULL)paziergang erleichtert"
  254. 59873 [153]"fort.":[142]
  255. 59880 [153]"loadstr$iesmal allerdings nicht, denn nach"
  256. 59881 [153]"kurzer str$enkzeit (vielleicht 2 (NULL)tunden)"
  257. 59882 [153]"ist es im ascreien so heiss, dass du in-"
  258. 59883 [153]"nerhalb von 2 (NULL)inuten in der (NULL)onne gar"
  259. 59884 [153]"waerst. right$nnerhalb von wenigen weiteren"
  260. 59885 [153]"(NULL)inuten schmoren saemtliche (NULL)trom- und"
  261. 59886 [153]"(NULL)teuerleitungen durch. str$u hoerst noch"
  262. 59887 [153]"kurze (NULL)eit ein (NULL)arnsignal, bevor du"
  263. 59888 [153]"in ein tiefes (NULL)oma faellst.":[137]61000
  264. 59890 [153]"loadstr$as haettest str$u besser nicht gemacht."
  265. 59891 [153]"atnls du auf der (NULL)trasse stehst hoerst"
  266. 59892 [153]"du schon ein (NULL)arnsignal und nur wenige
  267. 59893 print"[211]ekunden spaeter hoerst du nix mehr!":goto61000
  268. 59900 print"[147][196]a es dir nicht gelingt, den 128er als"
  269. 59901 print"64er einzuschalten, kannst [196]u aus der"
  270. 59902 print"[203]ommandozentrale heraus beobachten,"
  271. 59903 print"wie der [210]eaktor langsam in die"
  272. 59904 print"kritische [208]hase gelangt und schliess-"
  273. 59905 print"lich hochgeht."
  274. 59906 print"[211]chade, du warst kurz vor dem [197]nde...":goto59999
  275. 59910 print"[147][196]u solltest etwas mehr mit deinem [200]irn"
  276. 59911 print"denken und nicht weiter unten! [196]u hast"
  277. 59912 print"zwar noch einen schoenen [212]ag, aber das"
  278. 59913 print"[199]ame hast du nicht geloest und die"
  279. 59914 print"[205]enschheit nicht gerettet.":goto59999
  280. 59920 print"[147][206]ach ungefaehr 70 km faengt der [205]otor"
  281. 59921 print"an zu stottern. [200]atte ich vorher nicht"
  282. 59922 print"etwas von [212][193][206][203][197][206] gesagt?"
  283. 59923 print"[196]u laesst deinen [198]litzer langsam"
  284. 59924 print"den [194]erg hinunter der grossen orange-"
  285. 59925 print"farbenen [203]ugel entgegen rollen (und es"
  286. 59926 print"ist nicht die [211]onne...)":goto59999
  287. 59930 print"[147][196]u trittst auf die [194]remse und tankst"
  288. 59931 print"[196]einen [198]litzer voll. [194]ezahlen kannst [196]u"
  289. 59932 print"mit deinem [199]utschein an dieser [198]ull-"
  290. 59933 print"[211]ervice - [212]ankstelle. [204]eider ist sehr"
  291. 59934 print"viel [194]etrieb und so dauert es einige"
  292. 59935 print"[205]inuten bis du fertig bist. [196]u kommst"
  293. 59936 print"aber gerade noch rechtzeitig, um den"
  294. 59937 print"besten [208]latz auf dem [194]esucherparkplatz"
  295. 59938 print"des [203][203][215]s zu erwischen, um die [197]xplosion mitzube";
  296. 59939 print"kommen...":goto59999
  297. 59940 print"[147][196]ein [198]reund amuesiert sich koestlich"
  298. 59941 print"als er sich an eure gemeinsamen [213]nter-"
  299. 59942 print"nehmungen erinnert. [196]araufhin laesst"
  300. 59943 print"er sogar noch 50 000 [197]uro vom [203]auf-"
  301. 59944 print"preis nach.":return
  302. 59950 print"[147][215]as willst du denn ohne 64er anstellen?"
  303. 59951 print"[215]enigstens kannst [196]u [196]ir mit dem vielen"
  304. 59952 print"[199]eld noch ein paar schoene [211]tunden"
  305. 59953 print"machen. [203]auf [196]ir doch ein schoenes [208]ro-"
  306. 59954 print"gramm fuer deinen 64er. [207]der vielleicht"
  307. 59955 print"einen schoenen [207]ldie. [218]um [194]eispiel die"
  308. 59956 print"gesamte [194]-[211]oft - [210]eihe...":goto59999
  309. 59960 print"[147][215]as willst du denn mit vier 64ern?"
  310. 59961 print"[196]a bleibt ja auf jeden [198]all ein [203][203][215]"
  311. 59962 print"ohne [211]teuerung. [196]u kannst jetzt genau-"
  312. 59963 print"sogut aufgeben und die letzten [211]tunden"
  313. 59964 print"bei deiner [198]reundin (oder beim [193]rzt)"
  314. 59965 print"verbringen...":goto59999
  315. 59970 print"[147][215]aehrend du im [204]aden deines [198]reundes"
  316. 59971 print"bist kommt es in zwei [203][203][215]s zum [199][193][213]."
  317. 59972 print"[211]choene [198]arben... [213]nd so strahlend..."
  318. 59973 print"[214]ielleicht haettest du dich doch etwas"
  319. 59974 print"beeilen sollen?!":goto59999
  320. 59980 print"[147][196]u bleibst also stehen und denkst kurz
  321. 59981 [153]"nach. (NULL)eider sollte man auch im mid$ahr"
  322. 59982 [153]"2007 nicht zu lange mitten auf der"
  323. 59983 [153]"(NULL)trasse stehen bleiben, wenn man nicht"
  324. 59984 [153]"unbedingt darauf steht, von einem left$och-"
  325. 59985 [153]"geschwindigkeitsbus ueberfahren zu wer-"
  326. 59986 [153]"den.":[153]"str$as ist leider schon";
  327. 59987 [153]" das valnde deiner    (NULL)ission!":[137]59999
  328. 59990 [153]"loadstr$urch den erhoehten (NULL)tromverbrauch beim
  329. 59991 print"einschalten deiner uralten [205]ikrowelle"
  330. 59992 print"muss ein weiteres [193][203][215] ans [206]etz. [204]eider"
  331. 59993 print"ist sein [195]omputer von [205]ichelangelo be-"
  332. 59994 print"fallen und noch bevor du deinen [200]am-"
  333. 59995 print"burger gegessen hast wirst du ebenfalls"
  334. 59996 print"etwas heiss gemacht..."
  335. 59997 print"[196]as war wohl ein schnelles [197]nde!"
  336. 59999 poke198,.:wait198,1:poke198,.:run
  337. 60000 a=.:poke198,.:wait198,1:geta$:a=val(a$):ifa<1then60000
  338. 60001 return
  339. 61000 ifmm=1then61100
  340. 61001 si=54272:fl=si:fh=si+1:w=si+4:a=si+5:h=si+6:l=si+24:th=si+3:tl=si+2
  341. 61020 pokea,25:pokeh,155:poketh,200:poketl,155
  342. 61030 pokefh,49:pokefl,18
  343. 61040 pokew,65
  344. 61050 pokel,14:fort=9to45:pokefh,t:forf=1to16/3:nextf:nextt
  345. 61070 getx$:ifx$<>""thenpokew,.:ifmm=1thenreturn
  346. 61071 ifx$<>""thenrun
  347. 61080 fort=1to80:next:forc=15to4step-1:pokel,c:next:fort=1to60:next:x=.
  348. 61090 goto61050
  349. 61100 print"[147][201]nformationen zur angeblich sicheren":print"[203]ernkraft gibt's bei:"
  350. 61101 print"[201]nformationskreis [203]ernenergie
  351. 61102 [153]"left$eussallee 10
  352. 61103 print"53113 [194]onn
  353. 61104 [153]"peekeschwerden und ascorderungen koennen an":[151]198,.:x$[178]""
  354. 61105 [153]"die selbe atndresse geschickt werden."
  355. 61106 [153]"> (NULL)aste <
  356. 61107 goto61001
  357.